Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer(kind=short), | public | :: | current | ||||
type(thinning), | public, | ALLOCATABLE | :: | cuts(:) | |||
integer(kind=short), | public | :: | id | ||||
type(DateTime), | public | :: | next |
TYPE :: Practice INTEGER (KIND = short) :: id TYPE (Thinning), ALLOCATABLE :: cuts (:) INTEGER (KIND = short) :: current TYPE (DateTime) :: next END TYPE Practice